* График функции y=x.

присвоить синий 13
рисовать текст 20 20 'График y=x'
рисовать линия 20 300 580 300
рисовать линия 300 20 300 580
рисовать текст 320 20 y
рисовать текст 600 290 x
рисовать присвоить 300 300
присвоить $ЦветЛинии [синий]
для (список сгенерить $результат 0 280 )
  рисовать точка [$ОбъектЦикла] "-[$ОбъектЦикла]"
следующий